home *** CD-ROM | disk | FTP | other *** search
/ Softdisk Supreme / Softdisk Supreme.iso / pc / DSK Files / 0-49 / SD022c.dsk / PAL.76067.RAINES.JUN.83.A.bas < prev    next >
BASIC Source File  |  2003-06-12  |  2KB  |  24 lines
  1. 100  REM  * SOFTPAL PROGRAM BY DARREL RAINES *
  2. 110  SPEED= 255
  3. 310  TEXT : HOME :L$ = "****************************************"
  4. 320  PRINT L$: PRINT L$: VTAB 2: PRINT "FROM SOFTPAL: DARREL RAINES     07/30/83": POKE 34,3
  5. 330  FOR J = 1 TO 3
  6. 340  FOR I = 1 TO 9: READ A$: PRINT : PRINT A$: NEXT I: GOSUB 4000: HOME 
  7. 350  NEXT J
  8. 360  VTAB 13: PRINT "THIS PAL PROGRAM BY:": PRINT  TAB( 8);"DARREL RAINES"
  9. 370  PRINT  TAB( 8);"RT. 3  208A SUMMIT DR.": PRINT  TAB( 8);"MINERAL WELLS, TX 76067": VTAB 23: PRINT "PRESS <R> TO REVIEW": PRINT "PRESS <SPACE> FOR PAL MENU ";: GET A$
  10. 375  TEXT 
  11. 380  IF A$ = " "  THEN  PRINT : PRINT  CHR$(4);"RUN PAL.MENU"
  12. 390  IF A$ = "R"  THEN  RESTORE : GOTO 310
  13. 400  GET A$: GOTO 380
  14. 4000  REM  * PAUSE UNTIL SPACE BAR IS PRESSED *   
  15. 4010  VTAB 24: HTAB 12: INVERSE : PRINT "<PRESS SPACE BAR>";: NORMAL : GET A$
  16. 4020  IF A$ < >" "  THEN  GET A$: GOTO 4020
  17. 4030  RETURN 
  18. 5000  DATA  "  IF ANYONE HAS A SHAPE TABLE EDITOR","PROGRAM THAT THEY HAVE WRITTEN, I WOULD",BE VERY INTERESTED IN SEEING IT APPEAR
  19. 5010  DATA  IN THE HARVEST PROGRAMS OF SOFTDISK.,I KNOW THAT THEIR ARE A NUMBER OF SUCH,PROGRAMS AVAILABLE COMMERCIALLY.  I AM
  20. 5020  DATA  INTERESTED IN OBTAINING ONE THAT I CAN,MODIFY AND USE FOR MY OWN PURPOSES.  I,AM ALSO AWARE THAT BEAGLE BOTHERS HAVE
  21. 5030  DATA  ONE AVAILABLE ON THEIR APPLE MECHANIC,DISK.  AGAIN LET ME SAY THAT I AM ONLY,INTERESTED IN SEEING ONE OF YOUR
  22. 5040  DATA  PROGRAMS.,,"  I KNOW SOME OF YOU EXPERT PROGRAMMERS",OUT THERE HAVE WRITTEN SOMETHING ALONG,THE LINES OF WHAT I HAVE DESCRIBED.  I,AM ALSO SURE THAT A NUMBER OF OTHER
  23. 5050  DATA  SUBSCRIBERS WOULD BE INTERESTED IN,SEEING SUCH A PROGRAM FOR EDITING HIGH,RESOLUTION SHAPE TABLES.
  24. 5060  DATA  ,,,,,